約 2,022,245 件
https://w.atwiki.jp/wordexcel/pages/2.html
メニュー トップページ Word Excel リンク マイテク・センター北九州 CS検定 ここを編集
https://w.atwiki.jp/kojiro/pages/379.html
ACTIVE.CELL.FONT
https://w.atwiki.jp/sampleisbest/pages/307.html
開発環境 Microsoft Office Excel 2007 (SP3) 実行環境 Microsoft Windows 7 Home Premium (32bit) 手順 下にあるSheet1.csvファイルを用意しExcelで開く（Sheet1というワークシートに取り込まれるはず） ワークシートSheet2を作る Alt+F11でVisual Basic Editorを起動する メニューから[挿入]-[標準モジュール]を選択しModule1をコピペする Excelマクロ有効ブック(*.xlsm)で保存する（例：xls2smf.xlsm） Mainプロシージャ内にカーソルを合わせてF5キーを押す Module1 Const colmax = 33 Const path_out = "sample.mid" ライブラリ／ドキュメント Const timebase = 480 Dim datalen As Long データ長 Dim fileno As Integer ファイル番号 Sub Main() scalelist = Array(0, 2, 4, 5, 7, 9, 11) Set ws1 = Worksheets("Sheet1") Set ws2 = Worksheets("Sheet2") ws2.Cells.Clear r2 = 1 For Row = 1 To 12 notelen = 0 For col = 1 To colmax output = False c = ws1.Cells(Row, col) c1 = Left(c, 1) If c1 "" Then If notelen = 0 Then startc = c1 startcol = col End If notelen = notelen + 1 If Right(c, 1) = ";" Then output = True End If Else output = True End If If output Then If notelen 0 Then starttick = (timebase * 4) * (startcol - 1) \ 8 notetick = (timebase * 4) * notelen \ 8 r = 12 - Row notenum = (r \ 7 + 5) * 12 + scalelist(r Mod 7) If startc = "#" Then notenum = notenum + 1 ws2.Cells(r2, 1) = starttick ws2.Cells(r2, 2) = H90 ws2.Cells(r2, 3) = notenum ws2.Cells(r2, 4) = H70 r2 = r2 + 1 ws2.Cells(r2, 1) = starttick + notetick * 7 \ 8 ws2.Cells(r2, 2) = H80 ws2.Cells(r2, 3) = notenum ws2.Cells(r2, 4) = H0 r2 = r2 + 1 notelen = 0 End If End If Next Next ws2.UsedRange.Sort key1 =ws2.Columns(1) トラック終了 ws2.Cells(r2, 1) = CLng(timebase * 4) * colmax \ 8 ws2.Cells(r2, 2) = HFF ws2.Cells(r2, 3) = H2F ws2.Cells(r2, 4) = H0 ファイル出力 fileno = FreeFile If Dir(path_out) "" Then Kill path_out End If Open path_out For Binary Access Write As #fileno ヘッダチャンク PutBE 4, H4D546864 MThd PutBE 4, 6 データ長 PutBE 2, 0 フォーマットタイプ PutBE 2, 1 トラック数 PutBE 2, timebase タイムベース トラックチャンク PutBE 4, H4D54726B MTrk PutBE 4, 0 データ長（仮） datalen = 0 Dim prevtick As Long prevtick = 0 For Row = 1 To r2 可変長tick Dim tick, t As Long tick = ws2.Cells(Row, 1) t = tick - prevtick t = ((t And HFE00000) * 8) Or ((t And H1FC000) * 4) Or ((t And H3F80) * 2) Or (t And H7F) For c = 3 To 0 Step -1 Dim b As Long b = t \ (2 ^ (8 * c)) And HFF If 0 c Then b = b Or H80 If b H80 Then Put #fileno, , CByte(b) datalen = datalen + 1 End If Next For col = 2 To 4 Put #fileno, , CByte(ws2.Cells(Row, col)) Next datalen = datalen + 3 prevtick = tick Next データ長 For c = 0 To 3 Put #fileno, 19 + c, CByte(datalen \ (2 ^ (8 * (3 - c))) And HFF) Next Close #fileno 再生 CreateObject("Wscript.Shell").Run path_out End Sub Sub PutBE(count, value As Long) For c = count - 1 To 0 Step -1 Put #fileno, , CByte(value \ (2 ^ (8 * c)) And HFF) Next End Sub Sheet1.csv ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,#,,#,,,,,,#,,#,,,,,,#,#,,,#,#,,,o,,o ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, #,,,,,,,,#,,,,,,,,#,,,,,,,,,,,,,, ,#,,,,,,,,#,,,,,,,,#,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,o,,o ,,,,#,,#,,,,,,#,,#,,,,,,#,#,,,#,#,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,#,#,,,,,,,#,#,,,,,,,#,#,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,#,#,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,#,#,,,
https://w.atwiki.jp/kojiro/pages/617.html
SHOW.ACTIVE.CELL
https://w.atwiki.jp/exceltips/pages/2.html
tips 変数のデータ型 フォルダ名取得 ブックを開く（名前を指定） リンク Office TANAKA ☆ Excelでお仕事！ 価格.com coneco.net ここを編集
https://w.atwiki.jp/sctv-is/pages/14.html
この資料では、Microsoft Office 2010 (以下 Office 2010) が正常に機能しない場合に修復機能を使用して正常な状態に修復する方法。 ※コンピューターの管理者権限必須 ※下記はWindows7を想定 手順1. [スタート]ボタンをクリックし、[コントロール パネル]をクリック 手順2. [プログラムのアンインストール]をクリック 手順3. Office2010の変更を実行。 プログラム一覧から[Microsoft Office 2010]をクリックし、[変更]をクリック ※[ユーザー アカウント制御]ダイアログボックスが表示された場合は、内容を確認して[続行]をクリック 手順4. [Microsoft Office Professional 2010のインストールオプションを変更します。]画面が表示されるので、 [修復]をクリックし、[続行]をクリック 手順5. 完了のメッセージが表示されたら、[閉じる]をクリック 修復が完了した後に、正常な状態で使用できるか要確認。 これでダメなら再インストール推奨。 } 参考URL：http //support.microsoft.com/kb/2179287/ja
https://w.atwiki.jp/isekaikouryu/pages/181.html
異世界にだって学校はある。 一般的な教育機関の実態は寺子屋のようなものが殆どである。 しかし、将来のエリートを育てるために創立された学校だって、確かにあるのだ。 11の大国のいずれにも所属しない場所に、将来の職業魔法使いを育てるための教育機関がある。 名をフランツベール精霊魔法学校。 諸国を行脚し、風精霊を巧みに操って多くの人々に希望の風を運んだとされる、翼人の大魔導師マティアス＝フランツベールが創立に携わっていたとされる高等精霊魔法学校である。 フランツベール精霊魔法学校には種族や所属する国に関する入学制限が存在しないため、様々の国の様々な魔法形式が集う。 そのため、多くの国々の生徒達が多様な精霊魔法形式を学び、また、自国へとそのノウハウを持ち帰るため勉学に励んでいる。 そんな魔法学校に、一家の期待を背負ってやって来た少年がいた。 艶のある黒毛をなびかせる狗人の名は、ロット・Ｗ・アヴァラルド。 没落しつつある魔道の家：アヴァラルド家の嫡男である彼は今、友人である樹人から貰った蜜を手にルームメイトの待つ陸生第二男子寮の自室へと向かっていた。 「少しは魚人の血を継いでる身のくせに、水兵熱に発症するなんて。精霊使いの名が泣くぞ」 冗談交じりにロットは言って、手にした蜜をルームメイトの口へと近づけた。 ルームメイトは申し訳なさそうに顔を近づけて、ロットが手にした蜜を飲み干した。 「全く困ったものだよ。水兵熱なんてここじゃ滅多に発症しないからね。興味をもった精霊たちが面白半分にやってくるもんだから、余計に彼らの魔力に当てられる。この調子だと完治するのは当分先になりそうだ」 気楽そうに言うルームメイトの名はアマノザキ。 しかし水兵熱に冒された彼の声色は普段より大人しく、いつもはピンとはった鱗もなんだか頼りがない。 「世話をしてくれて助かったよ。午後からも授業だろう。僕のことは気にしないで早く授業へ向かったほうがいい」 ロットが時計を見ると午後の授業までには幾らか余裕があるようだったが、ルームメイトのことを考えると自分は近くに居ない方がいいなと思い至り、部屋を後にする。 「帰りにソーセージを貰ってきてくれー」 ドア越しにアマノザキの声が聞こえる。ロットは了解の意思をドアをノックすることで伝えて、授業へと向かった。 ■■■ 精霊魔法学校の授業は、地球人が想像するような堅苦しい教育とは大きく異なる。 この世界の魔法では精霊との対話にこそ重点が置かれているからである。 学ぶべきは、インテリ的な学問よりまず精霊との交流学。 この基礎が無ければ到底魔道を極める事などできないため、精霊魔法学校に集まる人間達は基本的に賑やか好きで外向的、積極的なものたちばかりである。 ここで、少数派ではあるが、自身の歌や踊りの才能だけで精霊達を操る者達もいることを、念のために記しておく。 ところで、精霊魔法学校で魔法学に励む生徒達はその殆どが名のある家々の出身である。 彼らはそこそこにプライドが高い。 また異種族、異国の人間の集まりなのだから、衝突も中々絶えない。 そこに賑やか好きな人間性とお祭り大好きな精霊達が絡むと、ただの喧嘩でさえも大規模な催しものとして『開催』されるわけだ。 曰く「喧嘩とは祭りでありフランツベールの華である」 今日もまた、些細な行き違いから生じた生徒たちの喧騒が聞こえてくるのだろう。 「アマノザキ君に飲ませたの！？…私は…私は『ロット君』が頼んで来たから私の『蜜』をあげたのにぃー!！」 午後の授業の終わりに、樹人エルミリアの身体が怒りで戦慄く。 エルミリア自身の身長はロットとさほど変わらないが、まるで強風にあおられる大樹のようだとロットは思った。 他のクラスメイト達は怒り心頭のエルミリアに興味津々な野次馬と化していて、場を納めてくれるだろう味方などいないことがロットには分かった。 ことの発端は、ロットがエルミリアにもう一度蜜をせがんだこと。使用用途を聞かれ、「アマノザキの治療用に使うんだけど」と正直に答えた結果がこれだ。 「アヴァラルド家の男子たるもの正直であれ」こんな家訓を未だ引き継いでいるから、アヴァラルド家は没落したのではないだろうか。 そんなことをロットは考えていた。 ■■■ 「これよりぃぃ！決闘を開催いたします！！決闘の理由は『狗人が女心を弄んだこと』！賭けのオッズは狗人ロット1：樹人エルミリア9！今から参加するなら大穴ロットがオススメだあ！」 元気溌剌としたよく通る声で口上を唱えるのは、純白の兎人。 白い毛皮を持つ兎人は『公平』を司ることから、フランツベール精霊魔法学校ではよく決闘執行取締委員会の会員として選出され、実際に生徒間の決闘を取り仕切っている。 試合の場所は、学校敷地内にある決闘場。 賭け事の行方を見定めようとする生徒達や、単なる野次馬などで観客席はごった返している。 「試合のルールはオードソックスに魔法球割！それではお二方は、位置に付いて！」 些細な喧嘩で決闘が開催されることが、フランツベール魔法学校ではたびたびある。 例え喧嘩元となった当事者の二人が決闘自体に乗り気で無かったとしても、回りの人間たちが祭り上げることが珍しくはないからだ。 今回の決闘も火種としては些細なものだが、どうやらお祭り好きな少数と恋する少女の親衛隊によってあれよあれよと決闘まで持って行かれたようだ。 「ではではあ～！初めます！魔法球割、よーい！始めええええ!！」 悪意や害意のある魔法物に触れると割れてしまう球状のガラス細工：魔法球。 相手の腰につけられた魔法球を、自らの魔法でもって破壊するのが今回の決闘：魔法球割の簡単なルールである。 白兎の試合開始の合図の中、今更ルールの確認を行っているロットは決闘初挑戦。 対するエルミリアもそれは同じなのだが、賭けのオッズはエルミリアの方が高いということが、ロットには不満だった。 「没落気味とはいえ、一応は名を馳せたこともあるアヴァラルド家嫡男として、ここはいっちょ実力を魅せつけないとな！」 そう言って、試合開始位置から100メートルは離れているだろうエルミリアの元へと駆けるロット。 狗人の面目躍如。一辺が200メートルはある闘技場も、ロットにとっては箱庭と変わらない。 「頂きだ！」 こんなゲーム、魔法を使うまでもない。相手の魔法球を腰から奪い取れば、試合は決したも同然だろう。 そう思いながら、ロットはエルミリアの腰に向かって手を伸ばす！ ＜＜駄目だよ！ロット！＞＞ 頭に響く声を感じて、ロットはとっさの所で後退する。 すると轟音が目の前から鳴り響く。 地面から吹き出るのは、間欠泉のような水流。 精霊の魔力が込められているため、これにロットが直撃していれば魔法球は割れ、敗北していたところだろう。 逆立ちした滝のように溢れ出る水の水量はすさまじく、闘技場は水浸しとなってしまった。 「うぅ・・・残念。今ので決まっていたら、私は『ロット君一日自由券』を手に入れられたのになー」 さわさわと、木々のせせらぎのような声で笑うエルミリア。 決闘の勝利品に目が眩んでいるようで、ロットは得も言われぬ悪寒を感じる。 「貴重な学園生活の一日を女なんかに拘束されてたまるかーっ！俺は絶対に勝利を勝ちとってお前の『蜜』をいただいてみせる！」 後退した先で威勢よく叫ぶロット。内心は複雑な模様。 ロットは未だ童貞道程であり、恋愛と友情の上手な折り合いのつけ方を知らない。 「やっぱ魔法使わないと厳しいか。女の子相手に本気の魔法戦ってのは気乗りしないけど。行くぞ！シルフィア」 ＜＜はぁい、はーい！呼ばれて飛び出てジャジャジャじゃあーん。あなたの風妖精シルフィアでぇす！＞＞ ロットの呼声と共に、まるでロットの体から出てきたように振る舞う風妖精はテンション高めでお送りしています。 「さっきの警告は助かった。俺の平穏なる学園生活のため、今日は頑張ってもらうぞ」 ＜＜OK、おーけー。任せなさい！ロットの体の中は心地いいから、その分のお仕事くらいはさせてもらいますよ～＞＞ アヴァラルド家の精霊魔法は一風変わったもので、『精霊憑き』と呼ばれる。 『精霊憑き』は魔力の代価として自身の体を貸し出す。 貸し出すと言っても、精霊の思うがままに体を操られるというわけではなく、いわば精霊の休み木になるといったような役割である。 とはいえ、魔力体である精霊を体の中に宿すのは術者への負担も大きい。ロットの居眠りが授業中絶えないのは、彼が不真面目な生徒だからというわけではない・・・かもしれない。 「ロット君も少しは本気を出してくれたみたい。私も今度は手加減しないよっ！」 エルミリアの声はよく透き通っていて可憐。そんな彼女の声に釣られて、幾らかの精霊たちが集まっているのにロットが気付いた。 「La――――」 エルミリアの歌声。 観客席の雑踏さえ圧倒するその声に精霊たちの歌声が重なる。 「La――――」＜＜La――――＞＞ 歌声に重なる歌声。 和音とともに、唸る精霊たちと、その魔力。 精霊とエルミリアの合唱により、大きな魔力のうねりが生まれている。 「あの歌声で、精霊たちの気を引こうってわけか。早めに妨害したほうが良さそうだな。」 ロットの楽観的意見を、シルフィアが即座に否定する。 ＜＜いやいや。流石にもう遅いでしょ～＞＞ 「なんだって？シルフィア？」 ロットが聞き返した瞬間、シルフィアの風を受けてロットの体は宙へと飛ばされる。 そのすぐ真下では風の轟音が響き、大地が隆起し、最後に激しい水流が駆け抜けた。 ＜＜やっぱ、やっぱ。エルミリアの『歌声』は甘くて切ないな～。『歌姫』のあだ名は伊達じゃないよ～＞＞ 「回避行動をとるなら、事前に確認をとって欲しかったぞ・・・オイ」 横っ腹を暴風で殴られてれて空へと浮いたロットはすこし息苦しそうだ。 しかし、今の風、土、水精霊による魔法攻撃を間一髪で避けれたのは、シルフィアのおかげだとわかったため、ポツリと不満を零すだけに留めた。 ＜＜今の恋の歌を聞いちゃうと、今回はロットのこと見放した方がいい気がしてきちゃうな～＞＞ 「待て待て待て！流石に今の魔法は、度が過ぎてただろ！？頑丈な俺でもタダでは済まないぞ」 ＜＜それもエルミリアのロットへの思いこそ。男の子には分からないかな～、この乙女心ってやつがさー＞＞ 一方的な恋慕で殺されるなんて勘弁してくれ。 まだまだやりたいことは山ほど残っているんだから。 そう思いながらシルフィアの魔力を借りて、地上を滑空するロットは次の手を考えていた。 「一気に近づいて、魔法球にお前の風を当てて仕留める。歌声を使った大魔法なら、次の魔法発動まではある程度のラグがあるはずだ」 ＜＜了解、りょおーかい。一応ロットの指示には従ちゃうよ～＞＞ 再び魔力のうねリを形成するエルミリアにむかって加速するロット。風精霊の助力のおかげで、初回の突撃よりなお速い。 この速さならエルミリアの次の魔法発動までに攻撃が間にあう。 加えて、軌道が見えにくい風魔法の攻撃。 これを防ぐことは流石に無理だろう。 「やれ！シルフィア！」 掛け声一閃。 楽々とエルミリアの背中を取ったロット。強風の魔法を、エルミリアの腰についた魔法球目掛けて炸裂させる！ 勝敗は決したように思われた・・・が。 「・・・ねこ？」 「・・・いやああああああ！」 ＜＜あら、あら。ごめんゴメン。手元が滑っちゃって。テヘ＞＞ ネコだった。 いや、ネコさん柄のプリントパンツだった。 どうやらロットが放った風魔法は腰の魔法球ではなく、エルミリアのスカート目掛けて炸裂してしまったようだ。 「ロット君の、、、バカーっ！！」 エルミリアの罵声と共に繰り出された回し蹴りは半円を描き、ロットの顎に綺麗に決まった。 ロットは避けることもできたが、どうしてもネコさんから目を反らすことが出来なかった。 エルミリアの回し蹴りによって吹っ飛ぶなかで、ロットは彼女の頭上に形成されていた魔力のうねりが、術者を失い不安定になっているのを見た。 「オイ、オイ。不味いだろ！あれは！」 ＜＜そうね～＞＞ 「そうねじゃねぇ！行くぞ！」 ロットは吹っ飛ばされた勢いのまま、シルフィアの風に乗ってエルミリアの元へと向かう。 一方のエルミリアは彼女の頭上の不安定な魔力溜りを発散させようと、歌を紡いでいた。 しかし、なかなか上手く行かない。 スカートの中身を見られた動揺を上手に処理できないためかもしれない。 「魔力のうねりを、維持できない・・・もう、ダメっ・・・」 エルミリアの心が折れるのと同時に、魔力のうねりは大きな火炎となって闘技場に降り注ぐ。 もう逃げられない。 魔力で生成された火炎を浴びれば、この生命はもうないだろう。 そんな絶望のなかで、彼の声がした。 「今度は、手元狂わせるなよ！シルフィア！」 ＜＜はい、はぁ～い！＞＞ ロットの掛け声とともに、暴風の魔法が生まれる。 まるで小さな台風のようなそれは、闘技場に充満している水を巻き上げ、エルミリアに振りかかる火炎を鎮火する。 「怪我は無いか？エルミリア」 ペタン、とその場に座り込んだエルミリアにそっと手を差し伸べるロット。 エリミリアが差し伸べられた手を取ろうとしたところで、甲高い音が鳴った。 パリーンッ 魔法球が割れる音がして、エルミリアはハッとする。 「悪いな。俺の勝ちだ」 ＜＜大人気なーい、カッコ悪う～い。ロットってば最低～＞＞ 文句を垂れているシルフィアだが、魔法球が割れたということは紛れもなく彼女の助力があってこそのはずである。 しかし、ロットはそのことを声に出して反論しない。 阿吽の呼吸とはいわないだろうが、不思議な信頼関係を維持してこその『精霊憑き』である。 「ロット君、、、素敵」 エルミリアは、火炎から自分を守ってくれた王子様に心奪われていた。 恋は盲目というが、どうやらロットがせせこましい手で勝ちを拾いにいったことは、頭に入っていないようだ。 ＜＜ロットみたいなガキんちょに恋するするなんて、前途多難だねぇ～＞＞ 風精霊の忠告も、恋する歌姫には届かないようだった。 ■■■ 素人同士の決闘は結局、ロットへの大ブーイングと、ロットに賭けてた少数派の歓喜の声の中で幕を閉じた。 「ほら、夜中の分のお薬だ。」 ロットは決闘の勝利品である、ダチュラ（チョウセンアサガオ）系の蜜をアマノザキに渡した。 よくよく考えると決闘の末に得られるものが、友人からの「ありがとう」一言だけと言うのはなんだか釈然としないが、気にしないことにした。 「ありがとよ、ロット。いつもいつも、済まないねぇ」 「なに言ってるんだい、おっかさん。それは言わない約束だろう」 フランツベール魔法学校で密かに流行っている異世界での定型文でのやり取り。 今のは年老いた婆とその息子とのやり取りらしい。 「それにしても大変だった。知ってたか？エルミリアは俺らと同い年のわりに、三種類の精霊を使った大魔法を行使できるんだぞ」 自分が勝利した相手を褒めることで、自身の凄さを強調する。 ロットの少年らしいいやらしさに、アマノザキは些細な抵抗を見せた。 「確か、エルミリアは音楽の授業中にも、生徒達の手本として精霊達とトライスペルの構築をやっていたはずだけど・・・」 アマノザキの指摘が、ロットの不真面目な授業態度を浮き彫りにする。 それと同時に、ロットは賭けのオッズの比率がエルミリアに傾いていたことに合点がいった。 「それじゃ、俺今日は他の奴の部屋で寝ることにする。シルフィアは風精霊だけど、『精霊憑き』の俺が長時間一緒にいるとアマノザキの体調が悪くなるかもしれないからな」 優等生のアマノザキが、自分の授業態度への説教をするであろう不満気な気配を感じたロットは、退室のための言い訳を早口で言って部屋を後にした。 「・・・ソーセージのことを忘れているじゃないか」 ポツリと溢れたアマノザキの不満を聞いている人間はいなかった。 ■■■ 寮の自室から出て、廊下を歩くロット。 今日の決闘での、エルミリアを火炎から救った充足感が、今さらになってやって来た。 ＜＜何、なにぃ？その気持ち悪い笑い顔？＞＞ いつもなら腹立たしいシルフィアの言葉も気にならない。 「人助けっていうのは、中々にいいものだな」 自分の言葉に、まずはロットが驚いた。 自分の口からこんな殊勝な言葉が出てくるとは思いもよらなかったからだ。 けれど、胸の中にある確かな温かみが、自分自身を満足させている。 ＜＜ふーん。そんなことを言う歳になったのか～＞＞ ロットの言葉と態度は、シルフィアに昔の主人のことを思い出させた。 彼女とともに希望の風を運んぶ旅をした翼人と、ロットの満足そうな笑顔が重なる。 ＜＜これだから、人間に『憑く』ってのはやめらんないよ＞＞ 「どうした？急に？」 ＜＜ううん、なんでもない。今日はたくさん魔法使って眠いから、今日の話相手はここまで。おやすみぃ～＞＞ それだけいって、ロットの中へと帰っていくシルフィア。 皮肉を言いに出てくるだけのシルフィアを少し不審に思いながらも、これ以上を追求しないことにする。 微妙な信頼関係を維持してこその『精霊憑き』である。 ■■■ ロットの中で眠るシルフィア。 そういえば、ロットの心音は一緒に旅をしていた主人の心音に似ていて落ち着くということを、今更のように彼女は思い出していた。 ■■■ あとがき（のような蛇足） なんかこんなんできました。 書きたいこと全部は詰め込めれなかったのが残念。 他にも脳内の精霊魔法の設定とか、魔法学校の授業風景とかも描写してみたかった。 本当はこの後に、「何この話？」って異人さんが金魚に質問して 「いま流行してる娯楽小説です。ラノベって言うらしいですよ。異人さんの世界で言う『ゼ○の使い魔』みたいな作品です」 「あぁ『ゼロの○い魔』ね・・・」って下りがあったりなかったり。 けれど、途中で飽きたのでどうやってもオチが弱くなるので、単体として仕上げました。 蛇足① バトル描写難しいぞイエー！ ただ単に起こったことを記述してるだけになってしまうぞイエー！ 蛇足② 誤字脱字については、スレや米欄で指摘してくださると助かります。 あとがき（のような蛇足）の蛇足 この話が『ゼロの使い○』ほど素晴らしい作品だと言いたいわけじゃなくて ただ単に魔法学校がでてくる著名なラノベを『○ロの使い魔』しか知らないってだけだったりする。 異世界にも当然ありますよね学校とか教育機関。地球と違って種族入り乱れての学生生活は本当に楽しそうです。ポイントになってくるのは種族違いによる常識非常識の把握でしょうか？ -- 名無しさん (2013-03-29 19 53 57) 名前 コメント -
https://w.atwiki.jp/kojiro/pages/19.html
これらの関数のいくつかはマクロシートでしか使えません。 A1.R1C1 行と列の表示形式をA1 形式とR1C1 形式で切り替えます。 ABSREF ACTIVATE ACTIVATE.NEXT 次のウィンドウを表示します。 ACTIVATE.PREV 前のウィンドウを表示します。 ACTIVE.CELL ACTIVE.CELL.FONT ADD.ARROW ADD.BAR ADD.CHART.AUTOFORMAT ADD.COMMAND ADD.MENU ADD.OVERLAY ADD.TOOL ADD.TOOLBAR ADDIN.MANAGER ALERT ALIGNMENT ANOVA1 ANOVA2 ANOVA3 APP.ACTIVATE.MICROSOFT APP.ACTIVATE APP.MAXIMIZE APP.MINIMIZE APP.MOVE APP.RESTORE APP.SIZE APP.TITLE APPLY.NAMES APPLY.STYLE ARGUMENT ARRANGE.ALL ASSIGN.TO.OBJECT ASSIGN.TO.TOOL ATTACH.TEXT ATTACH.TOOLBARS AUTO.OUTLINE AXES BEEP BORDER BREAK BRING.TO.FRONT オブジェクトを前面に移動します。 CALCULATE.DOCUMENT CALCULATE.NOW CALCULATION CALLER CANCEL.COPY CANCEL.KEY CELL.PROTECTION CHANGE.LINK CHART.ADD.DATA CHART.TREND CHART.WIZARD グラフ作成ウィザードを起動します。 CHECK.COMMAND CLEAR CLEAR.OUTLINE CLEAR.ROUTING.SLIP CLOSE CLOSE.ALL COLOR.PALETTE COLUMN.WIDTH 列の幅を設定します。 COMBINATION CONSOLIDATE CONSTRAIN.NUMERIC COPY コピーします。 COPY.CHART グラフをコピーします。 COPY.PICTURE オブジェクトをコピーします。 COPY.TOOL CREATE.NAMES 名前を定義します。 CREATE.OBJECT CREATE.PUBLISHER CUSTOM.REPEAT CUSTOM.UNDO CUT 切り取ります。 DATA.DELETE DATA.FIND DATA.FIND.NEXT DATA.FIND.PREV DATA.FORM DATA.LABEL DATA.SERIES DEFINE.NAME 名前の定義ダイアログボックスを開きます。 DEFINE.STYLE セルのスタイルを定義します。 DELETE.ARROW 矢印を削除します。 DELETE.BAR DELETE.CHART.AUTOFORMAT DELETE.COMMAND DELETE.FORMAT DELETE.MENU DELETE.NAME 定義した名前を削除します。 DELETE.OVERLAY オーバレイを削除します。 DELETE.STYLE スタイルを削除します。 DELETE.TOOL DELETE.TOOLBAR DEMOTE DEREF DESCR DIALOG.BOX DIRECTORY DISABLE.INPUT DISPLAY DOCUMENTS DUPLICATE ECHO EDIT.COLOR EDIT.DELETE セル、行、列を削除します。 EDIT.OBJECT EDIT.REPEAT EDIT.SERIES EDIT.TOOL EDITION.OPTIONS ELSE ELSE.IF EMBED ENABLE.COMMAND ENABLE.TIPWIZARD ENABLE.TOOL END.IF ENTER.DATA ERROR ERRORBAR.X ERRORBAR.Y EVALUATE EXEC EXECUTE EXPON EXTEND.POLYGON EXTRACT FCLOSE FILE.CLOSE FILE.DELETE FILL.AUTO FILL.DOWN FILL.GROUP FILL.LEFT FILL.RIGHT FILL.UP FILTER オートフィルタを使います。 FILTER.ADVANCED FILTER.SHOW.ALL FIND.FILE FONT フォントダイアログボックスを開きます。 FONT.PROPERTIES FORMAT.AUTO FORMAT.CHART FORMAT.CHARTTYPE FORMAT.FONT FORMAT.LEGEND FORMAT.MAIN FORMAT.MOVE FORMAT.NUMBER FORMAT.OVERLAY FORMAT.SHAPE FORMAT.SIZE FORMAT.TEXT FORMULA.FILL FORMULA.FIND 検索します。 FORMULA.FIND.NEXT 次の検索候補を表示します。 FORMULA.FIND.PREV 前の検索候補を表示します。 FORMULA.GOTO FORMULA.REPLACE FREEZE.PANES ウィンドウ表示を固定します。 FULL FULL.SCREEN FUNCTION.WIZARD GALLERY.3D.AREA GALLERY.3D.BAR GALLERY.3D.COLUMN GALLERY.3D.LINE GALLERY.3D.PIE GALLERY.3D.SURFACE GALLERY.AREA GALLERY.BAR GALLERY.COLUMN GALLERY.CUSTOM GALLERY.DOUGHNUT GALLERY.LINE GALLERY.PIE GALLERY.RADAR GALLERY.SCATTER GOAL.SEEK GRIDLINES GROUP オブジェクトをグループ化します。 HIDE HIDE.OBJECT HLINE HPAGE HSCROLL INSERT セル、行、列を挿入します。 INSERT.PICTURE オブジェクトを挿入します。 INSERT.TITLE JUSTIFY 均等揃えにします。 LEGEND LINK.FORMAT LINKS LIST.NAMES 定義された名前の一覧を表示します。 INSERT MAIL.ADD.MAILER MAIL.DELETE.MAILER MAIL.EDIT.MAILER MAIL.FORWARD MAIL.LOGOFF MAIL.LOGON MAIL.NEXT.LETTER MAIL.REPLY MAIL.REPLY.ALL MAIN.CHART MAIN.CHART.TYPE MENU.EDITOR MERGE.STYLES MOVE NEW 新しいファイルを作成します。 NEW.WINDOW 新しいウィンドウを開きます。 NOTE OBJECT.PROPERTIES オブジェクトの書式設定を行います。 OBJECT.PROTECTION OPEN ファイルを開きます。 OPEN.LINKS OPEN.MAIL OPEN.TEXT OPTIONS.CALCULATION OPTIONS.CHART OPTIONS.EDIT OPTIONS.GENERAL OPTIONS.LISTS.ADD OPTIONS.LISTS.DELETE OPTIONS.TRANSITION OPTIONS.VIEW OUTLINE OVERLAY PAGE.SETUP ページ設定を行います。 PARSE PASTE 貼り付けます。 PASTE.LINK PASTE.PICTURE 絵を貼り付けます。 PASTE.PICTURE.LINK 絵をリンクつきで貼り付けます。 PASTE.SPECIAL 形式を選択して貼り付けます。 PATTERNS パターンを設定します。 PIVOT.ADD.DATA ピボットテーブルにデータを追加します。 PIVOT.ADD.FIELDS ピボットテーブルにフィールドを追加します。 PIVOT.FIELD PIVOT.FIELD.GROUP PIVOT.FIELD.PROPERTIES PIVOT.FIELD.UNGROUP PIVOT.ITEM.PROPERTIES PIVOT.ITEM PIVOT.REFRESH PIVOT.SHOW.PAGES PIVOT.TABLE.WIZARD PLACEMENT PRECISION PREFERRED PRINT 印刷します。 PRINT.PREVIEW 印刷プレビューを表示します。 PRINTER.SETUP 印刷設定をします。 PROMOTE PROTECT.DOCUMENT ファイルを保護します。 QUERY.GET.DATA QUERY.REFRESH QUIT Excel を終了します。 REMOVE.PAGE.BREAK 改ページ設定を解除します。 RENAME.OBJECT REPLACE.FONT REPORT.DEFINE REPORT.DELETE レポートを削除します。 REPORT.PRINT レポートを印刷します。 RESUME ROUTE.DOCUMENT ROUTING.SLIP ROW.HEIGHT 行の高さを設定します。 RUN マクロを開始します。 SAMPLE SAVE ファイルを保存します。 SAVE.AS ファイルを別名をつけて保存します。 SAVE.COPY.AS SAVE.WORKBOOK SAVE.WORKSPACE SCALE SCENARIO.ADD SCENARIO.CELLS SCENARIO.DELETE シナリオを削除します。 SCENARIO.EDIT SCENARIO.SHOW SCENARIO.SHOW.NEXT SCENARIO.SUMMARY SELECT セル、列、行、オブジェクトを選択します。 SELECT.ALL 全てを選択します。 SELECT.CHART グラフを選択します。 SELECT.END SELECT.LAST.CELL 最後のセルを選択します。 SELECT.PLOT.AREA SELECT.SPECIAL SEND.MAIL SEND.TO.BACK SERIES SERIES.AXES SERIES.ORDER SERIES.X SERIES.Y SET.PAGE.BREAK 改ページ位置を挿入します。 SET.PREFERRED SET.PRINT.AREA 印刷範囲を設定します。 SET.PRINT.TITLES 印刷タイトルを設定します。 SHORT.MENUS SHOW.ACTIVE.CELL SHOW.BAR SHOW.CLIPBOARD SHOW.DETAIL SHOW.INFO SHOW.LEVELS SHOW.TOOLBAR SIZE SLIDE.COPY.ROW SLIDE.CUT.ROW SLIDE.DEFAULTS SLIDE.DELETE.ROW SLIDE.EDIT SLIDE.PASTE SLIDE.PASTE.ROW SLIDE.SHOW SOLVER.ADD SOLVER.CHANGE SOLVER.DELETE SOLVER.FINISH SOLVER.LOAD SOLVER.OK SOLVER.OPTIONS SOLVER.RESET SOLVER.SAVE SOLVER.SOLVE SORT 並べ替えます。 SOUND.NOTE SOUND.PLAY SPELLING スペルチェックを行います。 SPLIT 画面を分割します。 STANDARD.FONT STANDARD.WIDTH STYLE SUBTOTAL.CREATE SUBTOTAL.REMOVE SUMMARY.INFO TABLE TEXT.BOX テキストボックスを挿入します。 TEXT.TO.COLUMNS TRACER.CLEAR TRACER.DISPLAY TRACER.ERROR TRACER.NAVIGATE UNDO 直前の操作を取り消します。 UNGROUP グループを解除します。 UNHIDE UNLOCKED.NEXT UNLOCKED.PREV UPDATE.LINK リンクを更新します。 VBA.INSERT.FILE VBA.MAKE.ADDIN VIEW.3D VIEW.DEFINE VIEW.DELETE VIEW.SHOW VLINE VPAGE VSCROLL WINDOW.MAXIMIZE ウィンドウを最大サイズで表示します。 WINDOW.MINIMIZE ウィンドウを最小サイズで表示します。 WINDOW.MOVE ウィンドウを移動します。 WINDOW.RESTORE WINDOW.SIZE ウィンドウのサイズを変更します。 WORKBOOK.ACTIVATE WORKBOOK.ADD WORKBOOK.COPY WORKBOOK.DELETE WORKBOOK.HIDE WORKBOOK.INSERT WORKBOOK.MOVE WORKBOOK.NAME WORKBOOK.NEW WORKBOOK.NEXT WORKBOOK.OPTIONS WORKBOOK.PREV WORKBOOK.PROTECT WORKBOOK.SCROLL WORKBOOK.SELECT WORKBOOK.TAB.SPLIT WORKBOOK.UNHIDE WORKGROUP WORKSPACE ZOOM ズーム表示を行います。
https://w.atwiki.jp/tomokazu0525/pages/36.html
最終更新日時2011-02-16ここを編集 ■目次 セキュリティ対策署名の受け入れ ページフッタこのページの1階層上のページ このページの1階層下のページ このページに含まれるタグ このページへのアクセス数 ■本文 セキュリティ対策 Excel のマクロのセキュリティ レベルが 高 に設定されていると ActiveX コントロール イベントが処理されない デジタル証明書って何だろう？ 署名の受け入れ VBEを立ち上げ（Alt＋F11）、「ツール」→「デジタル署名」 ここを編集 ページフッタ このページの1階層上のページ このページの1階層下のページ このページに含まれるタグ EXCEL VBA このページへのアクセス数 今日： - 昨日： - これまで合計： -
https://w.atwiki.jp/excelmasters/pages/32.html
Excel2007では、図形やワードアートなどの機能も強化されていて、反射系の図形が簡単に作成できるようになっています。 しかし、Excel2003にはそのような機能はありません。ここでは、Excel2003で反射しているように見える文字を作成する方法を紹介します。 動画(フラッシュ)での解説もしています。 反射文字の作り方(動画) 完成品はこちらです。 どうでしょうか？文字だけでなく、写真なども反射させることが可能です。 まずは「文字」を反射させる方法を解説します。 ① ワードアートを作成する メニューバーの「挿入」→「図」→「ワードアート」で「ワードアートギャラリー」を開きます。 作成したい色、形のサンプルを選んでOKをクリックします。（ここでは左上のシンプルなものを選びます） すると、「ワードアートテキストの編集」画面が表示されるので、表示させたい文字を入力し、必要ならフォントや文字のサイズも設定します。 ② 色を変える 作成したワードアートを選択し、「Ctrl」キーと「1」キーを同時に押して、「ワードアートの書式設定」を開き、「塗りつぶし」の「色」で色を選択します。ここでは文字をオレンジ色にしておきます。「OK」で設定画面をとじます。 ③ コピー・反転して位置を調整 ワードアートが選択された状態で、「Ctrl」キーと「C」キーを同時に押し、次に、「Ctrl」キーと「V」キーを同時に押します。これでワードアートがコピーされます。 ワードアートを選択し、図の白い丸を下にドラッグして文字を反転させます。 反転したワードアートを元のワードアートの下に配置します。 ④ 透明のグラデーションをかける 反転したワードアートを選択し、「Ctrl」キーと「1」キーを同時に押し、「ワードアートの書式設定」を開きます。 そして、「塗りつぶし」の「色」の「塗りつぶし効果」を選択します。 図のように、「色」の項目で、「１色」を選択し、「明暗」で真ん中あたりに設定します。 次に、「透過性」で、「開始値」を１００％に設定し、「終了値」を５０％に設定します。 「OK」をクリックして２つの設定画面をとじると、反射した文字が完成しています。